home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / util / rexx / FWCalendar.lha / gui4cli.lha / Gui4Cli / Dir / dir.popfav < prev    next >
Encoding:
Text File  |  1998-07-06  |  829 b   |  56 lines
  1. G4C
  2.  
  3. ; Gui to handle favourites
  4.  
  5. WinBig 0 0 80 45 ""
  6. WinType 00001000
  7. winonmouse 10 10 
  8. varpath dir.gc 
  9.  
  10. xOnRMB 
  11. guiclose dir.popfav
  12.  
  13. xOnInactive
  14. guiclose dir.popfav
  15.  
  16. xOnReload
  17. guiopen dir.popfav
  18.  
  19.  
  20. xbutton 0  0 80 15 'Cancel'
  21. guiclose dir.popfav
  22. if $favmode.1 > 0
  23.    favmode.1  = 0
  24.    lvuse dir.gc 1
  25.    lvmode DIR
  26.    lvdir #$$lv.dir
  27. endif
  28. if $favmode.2 > 0
  29.    favmode.2  = 0
  30.    lvuse dir.gc 2 
  31.    lvmode DIR
  32.    lvdir #$$lv.dir
  33. endif
  34.  
  35.  
  36. xbutton 0 15 80 15 'Delete'
  37. guiclose dir.popfav
  38. lvuse dir.gc $favid
  39. lvmulti first
  40. if $lv_file > ""
  41.    ezreq "Delete Fav Entries ?" Delete|Cancel choice
  42.    if $choice = 1
  43.       while $lv_file > ""
  44.           lvdel -1
  45.           lvmulti first
  46.       endwhile
  47.       lvsave guis:tools/fav/DirDef
  48.    endif
  49. endif
  50.  
  51.  
  52. xbutton 0 30 80 15 'Edit'
  53. guiclose dir.popfav
  54. run '$*DEF.EDITOR guis:tools/fav/DirDef'
  55.  
  56.